home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / text / hyper / htmledit.lha / HTMLEdit / rexx / LoadToVoyager.hrx < prev   
Text File  |  1999-01-04  |  1KB  |  53 lines
  1. /*
  2. **
  3. ** Load To Voyager - ARexx script for HTMLEditor
  4. ** $VER: LoadToVoyager.hrx © Adam 'Sherwood' Zaparcinski 
  5. ** This script saves actually edited file and loads this file to Voyager
  6. ** Tested with Voyager 1.0 and Voyager 2.88 demo
  7. **
  8. */
  9.  
  10. options results
  11. address 'HTMLEDIT.1'
  12.  
  13. /* save edited file */
  14.  
  15. he_save
  16.  
  17. /* get name of file (with path) */
  18.  
  19. he_getfilename
  20. URL=RESULT
  21. URL=INSERT("file:///",URL)
  22.  
  23. /* path to Voyager should be specified as an argument */
  24. PARSE ARG BROWSERPATH
  25.  
  26. /* check if Voyager is running and run it if isnt */
  27. port=VOYAGER
  28.  
  29. IF ~SHOW('P',port) THEN DO
  30.  
  31. /* some versions if voyager reports them as MindWalker */
  32.   port=MINDWALKER
  33.   IF ~SHOW('P',port) THEN DO
  34.     ADDRESS COMMAND
  35.     'RUN >NIL:' BROWSERPATH
  36.     'SYS:rexxc/WaitForPort' VOYAGER
  37.     port=VOYAGER
  38.     IF RC>0 THEN DO
  39.       'SYS:rexxc/WaitForPort' MINDWALKER
  40.       port=MINDWALKER
  41.       IF RC>0 THEN DO
  42.          say "No port"
  43.          EXIT 5
  44.       END
  45.     END
  46.   END
  47. END
  48.  
  49. /* now load our file to Voyager */
  50. INTERPRET 'ADDRESS' port
  51. openURL URL
  52.  
  53. exit